home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_5 / issue_05 / pipeline / ReadWrite / Read_Writ6 < prev   
Encoding:
Text File  |  1991-12-21  |  11.1 KB  |  1,103 lines
  1. %OP%VS4.11 (04-Dec-91), David A. Crossley MRCVS, R4000 5002 0045 9952 
  2. %OP%DERead - Write  (custom function sheet v 1.07)
  3. %OP%WRN
  4. %OP%DP1
  5. %OP%LP(
  6. %OP%TP)
  7. %OP%PL63
  8. %OP%HM1
  9. %OP%BM2
  10. %OP%FX
  11. %OP%FY
  12. %OP%FS
  13. %OP%QS90
  14. %OP%NDData_block,E2T51
  15. %OP%NDn,4
  16. %OP%NDx,17
  17. %OP%NDy,51
  18. %OP%WC90,1698,196,888,0,43,0,35
  19. %OP%PZA1A4
  20. %OP%PZA20A25
  21. %OP%PZA28A34
  22. %OP%PZA37A45
  23. %OP%PZA48A60
  24. %OP%PZC2D2
  25. %OP%PZC7D7
  26. %OP%PZC12D12
  27. %OP%PZC17D17
  28. %OP%PZC22D22
  29. %OP%PZC27D27
  30. %OP%PZC32D32
  31. %OP%PZC37D37
  32. %OP%PZC42D42
  33. %OP%PZC47D47
  34. %OP%PZD3D6
  35. %OP%PZD8D11
  36. %OP%PZD13D16
  37. %OP%PZD18D21
  38. %OP%PZD23D26
  39. %OP%PZD28D31
  40. %OP%PZD33D36
  41. %OP%PZD38D41
  42. %OP%PZD43D46
  43. %OP%PZD48D51
  44. %OP%PZE1T1
  45. %OP%PZE52T52
  46. %OP%PZU2U51
  47. %CO:A,73,0%   Title    : %H2%@t@
  48.    Filename : %H2%@l@
  49.    Author   : Modification from %H2%Colton Software%H2%'s original (1991)
  50. %R% custom function : %H4%Pipedream4.Examples.Custom.%H2%Read_Write
  51.               by : David A. Crossley  %H4% 20:26:25 19 December 1991
  52.                    56 Market Street, Heywood, OL10 4LY
  53.  
  54.    Purpose  : Defines functions to read and write DATA to "linking files" 
  55.                 as though the linking files were "created" to
  56.                 a size of 5 rows of 16 columns. (total 800 items of data)
  57.               Data type not specified, so accepts Numbers, Dates & Text. 
  58.  
  59. %LCR%/   Valid  "file"  numbers 0 - @B13@//Maximum  file  number allowed =/
  60. %LCR%/   Valid  column  numbers 1 - @B14@//Maximum column number allowed =/
  61. %LCR%/   Valid   row    numbers 1 - @B15@//Maximum   row  number allowed =/
  62.  
  63. %R%Only integer numbers are valid for "file", column and row numbers.
  64.  
  65.  
  66.    READ(n,column,row) %H6%see P312 of Pipedream3 user guide 
  67. %V%%L%function("read","fileno:number","colno:number","rowno:number")
  68. %V%%L%validate(@fileno,@colno,@rowno)
  69. %V%%L%if(A22<>"OK",result(A22),)
  70. %V%%L%index(Data_block,@colno,@rowno+B15*@fileno)
  71. %V%%L%result(A24)
  72.  
  73.  
  74.    WRITE(n,column,row,value) %H6%see P315 of Pipedream3 user guide
  75. %V%%L%function("write","fileno:number","colno:number","rowno:number","exp")
  76. %V%%L%validate(@fileno,@colno,@rowno)
  77. %V%%L%if(A30<>"OK",result(A30),)
  78. %V%%L%index(Data_block,@colno,@rowno+B15*@fileno)
  79. %V%%L%set_value(index(Data_block,@colno,@rowno+B15*@fileno),@exp)
  80. %V%%L%result(@exp)
  81.  
  82.  
  83.    VALIDATE PARAMETERS 
  84. %V%%L%function("validate","n","c","r")
  85. %V%%L%if(@n<0 | @n>B13, result("File no. out of range.  "),)
  86. %V%%L%if(@c<1 | @c>B14, result("Column no. out of range."),)
  87. %V%%L%if(@r<1 | @r>B15, result("Row no. out of range.   "),)
  88. %V%%L%if(@n<>int(@n),    result("File no. is not an integer.  "),)
  89. %V%%L%if(@c<>int(@c),    result("Column no. is not an integer."),)
  90. %V%%L%if(@r<>int(@r),    result("Row no. is not an integer.   "),)
  91. %V%%L%result("OK")
  92.  
  93.  
  94.    RESET_VALUES(value) %H6%data_block reset to "value"
  95. %V%%L%function("reset_values","to_value")
  96. %V%%L%alert("Reset link data block?","Continue","Quit")
  97. %V%%L%if(A50=2, result("Data block NOT re-set"),)
  98. %V%%L%alert("Are you sure?            Reset values?","No","Yes")
  99. %V%%L%if(A52=1, result("Data block NOT re-set"),)
  100. %V%%L%for("x",1,16)
  101. %V%%L%for("y",1,50)
  102. %V%%L%index(Data_block,x,y)
  103. %V%%L%set_value(index(Data_block,x,y),@to_value)
  104. %V%%L%next
  105. %V%%L%next
  106. %V%%L%result("Reset OK")
  107. %CO:B,3,0%
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119. %V%%R%%D0%9
  120. %V%%R%%D0%16
  121. %V%%R%%D0%5
  122. %CO:C,4,0%
  123. n0
  124.  
  125.  
  126.  
  127.  
  128. n1
  129.  
  130.  
  131.  
  132.  
  133. n2
  134.  
  135.  
  136.  
  137.  
  138. n3
  139.  
  140.  
  141.  
  142.  
  143. n4
  144.  
  145.  
  146.  
  147.  
  148. n5
  149.  
  150.  
  151.  
  152.  
  153. n6
  154.  
  155.  
  156.  
  157.  
  158. n7
  159.  
  160.  
  161.  
  162.  
  163. n8
  164.  
  165.  
  166.  
  167.  
  168. n9
  169. %CO:D,4,15%
  170. r1
  171. r2
  172. r3
  173. r4
  174. r5
  175. r1
  176. r2
  177. r3
  178. r4
  179. r5
  180. r1
  181. r2
  182. r3
  183. r4
  184. r5
  185. r1
  186. r2
  187. r3
  188. r4
  189. r5
  190. r1
  191. r2
  192. r3
  193. r4
  194. r5
  195. r1
  196. r2
  197. r3
  198. r4
  199. r5
  200. r1
  201. r2
  202. r3
  203. r4
  204. r5
  205. r1
  206. r2
  207. r3
  208. r4
  209. r5
  210. r1
  211. r2
  212. r3
  213. r4
  214. r5
  215. r1
  216. r2
  217. r3
  218. r4
  219. r5
  220. %CO:E,5,60%c 1
  221. %V%%R%1990
  222. %V%%R%385
  223. %V%%R%900
  224. %V%%R%""
  225. %V%%R%""
  226. %V%%R%1991
  227. %V%%R%410
  228. %V%%R%950
  229. %V%%R%""
  230. %V%%R%""
  231. %V%%R%1992
  232. %V%%R%405
  233. %V%%R%800
  234. %V%%R%""
  235. %V%%R%""
  236. %V%%R%""
  237. %V%%R%""
  238. %V%%R%""
  239. %V%%R%""
  240. %V%%R%""
  241. %V%%R%""
  242. %V%%R%""
  243. %V%%R%""
  244. %V%%R%""
  245. %V%%R%""
  246. %V%%R%""
  247. %V%%R%""
  248. %V%%R%""
  249. %V%%R%""
  250. %V%%R%""
  251. %V%%R%""
  252. %V%%R%""
  253. %V%%R%""
  254. %V%%R%""
  255. %V%%R%""
  256. %V%%R%""
  257. %V%%R%""
  258. %V%%R%""
  259. %V%%R%""
  260. %V%%R%""
  261. %V%%R%""
  262. %V%%R%""
  263. %V%%R%""
  264. %V%%R%""
  265. %V%%R%""
  266. %V%%R%""
  267. %V%%R%""
  268. %V%%R%""
  269. %V%%R%""
  270. %V%%R%""
  271. c 1
  272. %CO:F,5,48%c 2
  273. %V%%R%""
  274. %V%%R%460
  275. %V%%R%785
  276. %V%%R%""
  277. %V%%R%""
  278. %V%%R%""
  279. %V%%R%535
  280. %V%%R%785
  281. %V%%R%""
  282. %V%%R%""
  283. %V%%R%""
  284. %V%%R%510
  285. %V%%R%785
  286. %V%%R%""
  287. %V%%R%""
  288. %V%%R%""
  289. %V%%R%""
  290. %V%%R%""
  291. %V%%R%""
  292. %V%%R%""
  293. %V%%R%""
  294. %V%%R%""
  295. %V%%R%""
  296. %V%%R%""
  297. %V%%R%""
  298. %V%%R%""
  299. %V%%R%""
  300. %V%%R%""
  301. %V%%R%""
  302. %V%%R%""
  303. %V%%R%""
  304. %V%%R%""
  305. %V%%R%""
  306. %V%%R%""
  307. %V%%R%""
  308. %V%%R%""
  309. %V%%R%""
  310. %V%%R%""
  311. %V%%R%""
  312. %V%%R%""
  313. %V%%R%""
  314. %V%%R%""
  315. %V%%R%""
  316. %V%%R%""
  317. %V%%R%""
  318. %V%%R%""
  319. %V%%R%""
  320. %V%%R%""
  321. %V%%R%""
  322. %V%%R%""
  323. c 2
  324. %CO:G,5,36%c 3
  325. %V%%R%""
  326. %V%%R%573
  327. %V%%R%600
  328. %V%%R%""
  329. %V%%R%""
  330. %V%%R%""
  331. %V%%R%598
  332. %V%%R%550
  333. %V%%R%""
  334. %V%%R%""
  335. %V%%R%""
  336. %V%%R%603
  337. %V%%R%700
  338. %V%%R%""
  339. %V%%R%""
  340. %V%%R%""
  341. %V%%R%""
  342. %V%%R%""
  343. %V%%R%""
  344. %V%%R%""
  345. %V%%R%""
  346. %V%%R%""
  347. %V%%R%""
  348. %V%%R%""
  349. %V%%R%""
  350. %V%%R%""
  351. %V%%R%""
  352. %V%%R%""
  353. %V%%R%""
  354. %V%%R%""
  355. %V%%R%""
  356. %V%%R%""
  357. %V%%R%""
  358. %V%%R%""
  359. %V%%R%""
  360. %V%%R%""
  361. %V%%R%""
  362. %V%%R%""
  363. %V%%R%""
  364. %V%%R%""
  365. %V%%R%""
  366. %V%%R%""
  367. %V%%R%""
  368. %V%%R%""
  369. %V%%R%""
  370. %V%%R%""
  371. %V%%R%""
  372. %V%%R%""
  373. %V%%R%""
  374. %V%%R%""
  375. c 3
  376. %CO:H,5,24%c 4
  377. %V%%R%""
  378. %V%%R%346
  379. %V%%R%500
  380. %V%%R%""
  381. %V%%R%""
  382. %V%%R%""
  383. %V%%R%371
  384. %V%%R%500
  385. %V%%R%""
  386. %V%%R%""
  387. %V%%R%""
  388. %V%%R%346
  389. %V%%R%500
  390. %V%%R%""
  391. %V%%R%""
  392. %V%%R%""
  393. %V%%R%""
  394. %V%%R%""
  395. %V%%R%""
  396. %V%%R%""
  397. %V%%R%""
  398. %V%%R%""
  399. %V%%R%""
  400. %V%%R%""
  401. %V%%R%""
  402. %V%%R%""
  403. %V%%R%""
  404. %V%%R%""
  405. %V%%R%""
  406. %V%%R%""
  407. %V%%R%""
  408. %V%%R%""
  409. %V%%R%""
  410. %V%%R%""
  411. %V%%R%""
  412. %V%%R%""
  413. %V%%R%""
  414. %V%%R%""
  415. %V%%R%""
  416. %V%%R%""
  417. %V%%R%""
  418. %V%%R%""
  419. %V%%R%""
  420. %V%%R%""
  421. %V%%R%""
  422. %V%%R%""
  423. %V%%R%""
  424. %V%%R%""
  425. %V%%R%""
  426. %V%%R%""
  427. c 4
  428. %CO:I,5,12%c 5
  429. %V%%R%""
  430. %V%%R%421
  431. %V%%R%300
  432. %V%%R%""
  433. %V%%R%""
  434. %V%%R%""
  435. %V%%R%446
  436. %V%%R%400
  437. %V%%R%""
  438. %V%%R%""
  439. %V%%R%""
  440. %V%%R%491
  441. %V%%R%300
  442. %V%%R%""
  443. %V%%R%""
  444. %V%%R%""
  445. %V%%R%""
  446. %V%%R%""
  447. %V%%R%""
  448. %V%%R%""
  449. %V%%R%""
  450. %V%%R%""
  451. %V%%R%""
  452. %V%%R%""
  453. %V%%R%""
  454. %V%%R%""
  455. %V%%R%""
  456. %V%%R%""
  457. %V%%R%""
  458. %V%%R%""
  459. %V%%R%""
  460. %V%%R%""
  461. %V%%R%""
  462. %V%%R%""
  463. %V%%R%""
  464. %V%%R%""
  465. %V%%R%""
  466. %V%%R%""
  467. %V%%R%""
  468. %V%%R%""
  469. %V%%R%""
  470. %V%%R%""
  471. %V%%R%""
  472. %V%%R%""
  473. %V%%R%""
  474. %V%%R%""
  475. %V%%R%""
  476. %V%%R%""
  477. %V%%R%""
  478. %V%%R%""
  479. c 5
  480. %CO:J,5,0%c 6
  481. %V%%R%""
  482. %V%%R%327
  483. %V%%R%350
  484. %V%%R%""
  485. %V%%R%""
  486. %V%%R%""
  487. %V%%R%352
  488. %V%%R%350
  489. %V%%R%""
  490. %V%%R%""
  491. %V%%R%""
  492. %V%%R%327
  493. %V%%R%450
  494. %V%%R%""
  495. %V%%R%""
  496. %V%%R%""
  497. %V%%R%""
  498. %V%%R%""
  499. %V%%R%""
  500. %V%%R%""
  501. %V%%R%""
  502. %V%%R%""
  503. %V%%R%""
  504. %V%%R%""
  505. %V%%R%""
  506. %V%%R%""
  507. %V%%R%""
  508. %V%%R%""
  509. %V%%R%""
  510. %V%%R%""
  511. %V%%R%""
  512. %V%%R%""
  513. %V%%R%""
  514. %V%%R%""
  515. %V%%R%""
  516. %V%%R%""
  517. %V%%R%""
  518. %V%%R%""
  519. %V%%R%""
  520. %V%%R%""
  521. %V%%R%""
  522. %V%%R%""
  523. %V%%R%""
  524. %V%%R%""
  525. %V%%R%""
  526. %V%%R%""
  527. %V%%R%""
  528. %V%%R%""
  529. %V%%R%""
  530. %V%%R%""
  531. c 6
  532. %CO:K,5,0%c 7
  533. %V%%R%""
  534. %V%%R%327
  535. %V%%R%450
  536. %V%%R%""
  537. %V%%R%""
  538. %V%%R%""
  539. %V%%R%352
  540. %V%%R%450
  541. %V%%R%""
  542. %V%%R%""
  543. %V%%R%""
  544. %V%%R%420
  545. %V%%R%500
  546. %V%%R%""
  547. %V%%R%""
  548. %V%%R%""
  549. %V%%R%""
  550. %V%%R%""
  551. %V%%R%""
  552. %V%%R%""
  553. %V%%R%""
  554. %V%%R%""
  555. %V%%R%""
  556. %V%%R%""
  557. %V%%R%""
  558. %V%%R%""
  559. %V%%R%""
  560. %V%%R%""
  561. %V%%R%""
  562. %V%%R%""
  563. %V%%R%""
  564. %V%%R%""
  565. %V%%R%""
  566. %V%%R%""
  567. %V%%R%""
  568. %V%%R%""
  569. %V%%R%""
  570. %V%%R%""
  571. %V%%R%""
  572. %V%%R%""
  573. %V%%R%""
  574. %V%%R%""
  575. %V%%R%""
  576. %V%%R%""
  577. %V%%R%""
  578. %V%%R%""
  579. %V%%R%""
  580. %V%%R%""
  581. %V%%R%""
  582. %V%%R%""
  583. c 7
  584. %CO:L,5,0%c 8
  585. %V%%R%""
  586. %V%%R%478
  587. %V%%R%500
  588. %V%%R%""
  589. %V%%R%""
  590. %V%%R%""
  591. %V%%R%503
  592. %V%%R%550
  593. %V%%R%""
  594. %V%%R%""
  595. %V%%R%""
  596. %V%%R%478
  597. %V%%R%874
  598. %V%%R%""
  599. %V%%R%""
  600. %V%%R%""
  601. %V%%R%""
  602. %V%%R%""
  603. %V%%R%""
  604. %V%%R%""
  605. %V%%R%""
  606. %V%%R%""
  607. %V%%R%""
  608. %V%%R%""
  609. %V%%R%""
  610. %V%%R%""
  611. %V%%R%""
  612. %V%%R%""
  613. %V%%R%""
  614. %V%%R%""
  615. %V%%R%""
  616. %V%%R%""
  617. %V%%R%""
  618. %V%%R%""
  619. %V%%R%""
  620. %V%%R%""
  621. %V%%R%""
  622. %V%%R%""
  623. %V%%R%""
  624. %V%%R%""
  625. %V%%R%""
  626. %V%%R%""
  627. %V%%R%""
  628. %V%%R%""
  629. %V%%R%""
  630. %V%%R%""
  631. %V%%R%""
  632. %V%%R%""
  633. %V%%R%""
  634. %V%%R%""
  635. c 8
  636. %CO:M,5,0%c 9
  637. %V%%R%""
  638. %V%%R%390
  639. %V%%R%600
  640. %V%%R%""
  641. %V%%R%""
  642. %V%%R%""
  643. %V%%R%415
  644. %V%%R%600
  645. %V%%R%""
  646. %V%%R%""
  647. %V%%R%""
  648. %V%%R%470
  649. %V%%R%600
  650. %V%%R%""
  651. %V%%R%""
  652. %V%%R%""
  653. %V%%R%""
  654. %V%%R%""
  655. %V%%R%""
  656. %V%%R%""
  657. %V%%R%""
  658. %V%%R%""
  659. %V%%R%""
  660. %V%%R%""
  661. %V%%R%""
  662. %V%%R%""
  663. %V%%R%""
  664. %V%%R%""
  665. %V%%R%""
  666. %V%%R%""
  667. %V%%R%""
  668. %V%%R%""
  669. %V%%R%""
  670. %V%%R%""
  671. %V%%R%""
  672. %V%%R%""
  673. %V%%R%""
  674. %V%%R%""
  675. %V%%R%""
  676. %V%%R%""
  677. %V%%R%""
  678. %V%%R%""
  679. %V%%R%""
  680. %V%%R%""
  681. %V%%R%""
  682. %V%%R%""
  683. %V%%R%""
  684. %V%%R%""
  685. %V%%R%""
  686. %V%%R%""
  687. c 9
  688. %CO:N,5,0%c10
  689. %V%%R%""
  690. %V%%R%707
  691. %V%%R%600
  692. %V%%R%""
  693. %V%%R%""
  694. %V%%R%""
  695. %V%%R%732
  696. %V%%R%650
  697. %V%%R%""
  698. %V%%R%""
  699. %V%%R%""
  700. %V%%R%707
  701. %V%%R%650
  702. %V%%R%""
  703. %V%%R%""
  704. %V%%R%""
  705. %V%%R%""
  706. %V%%R%""
  707. %V%%R%""
  708. %V%%R%""
  709. %V%%R%""
  710. %V%%R%""
  711. %V%%R%""
  712. %V%%R%""
  713. %V%%R%""
  714. %V%%R%""
  715. %V%%R%""
  716. %V%%R%""
  717. %V%%R%""
  718. %V%%R%""
  719. %V%%R%""
  720. %V%%R%""
  721. %V%%R%""
  722. %V%%R%""
  723. %V%%R%""
  724. %V%%R%""
  725. %V%%R%""
  726. %V%%R%""
  727. %V%%R%""
  728. %V%%R%""
  729. %V%%R%""
  730. %V%%R%""
  731. %V%%R%""
  732. %V%%R%""
  733. %V%%R%""
  734. %V%%R%""
  735. %V%%R%""
  736. %V%%R%""
  737. %V%%R%""
  738. %V%%R%""
  739. c10
  740. %CO:O,5,0%c11
  741. %V%%R%""
  742. %V%%R%771
  743. %V%%R%650
  744. %V%%R%""
  745. %V%%R%""
  746. %V%%R%""
  747. %V%%R%796
  748. %V%%R%750
  749. %V%%R%""
  750. %V%%R%""
  751. %V%%R%""
  752. %V%%R%771
  753. %V%%R%850
  754. %V%%R%""
  755. %V%%R%""
  756. %V%%R%""
  757. %V%%R%""
  758. %V%%R%""
  759. %V%%R%""
  760. %V%%R%""
  761. %V%%R%""
  762. %V%%R%""
  763. %V%%R%""
  764. %V%%R%""
  765. %V%%R%""
  766. %V%%R%""
  767. %V%%R%""
  768. %V%%R%""
  769. %V%%R%""
  770. %V%%R%""
  771. %V%%R%""
  772. %V%%R%""
  773. %V%%R%""
  774. %V%%R%""
  775. %V%%R%""
  776. %V%%R%""
  777. %V%%R%""
  778. %V%%R%""
  779. %V%%R%""
  780. %V%%R%""
  781. %V%%R%""
  782. %V%%R%""
  783. %V%%R%""
  784. %V%%R%""
  785. %V%%R%""
  786. %V%%R%""
  787. %V%%R%""
  788. %V%%R%""
  789. %V%%R%""
  790. %V%%R%""
  791. c11
  792. %CO:P,5,0%c12
  793. %V%%R%""
  794. %V%%R%304
  795. %V%%R%800
  796. %V%%R%""
  797. %V%%R%""
  798. %V%%R%""
  799. %V%%R%329
  800. %V%%R%800
  801. %V%%R%""
  802. %V%%R%""
  803. %V%%R%""
  804. %V%%R%386
  805. %V%%R%950
  806. %V%%R%""
  807. %V%%R%""
  808. %V%%R%""
  809. %V%%R%""
  810. %V%%R%""
  811. %V%%R%""
  812. %V%%R%""
  813. %V%%R%""
  814. %V%%R%""
  815. %V%%R%""
  816. %V%%R%""
  817. %V%%R%""
  818. %V%%R%""
  819. %V%%R%""
  820. %V%%R%""
  821. %V%%R%""
  822. %V%%R%""
  823. %V%%R%""
  824. %V%%R%""
  825. %V%%R%""
  826. %V%%R%""
  827. %V%%R%""
  828. %V%%R%""
  829. %V%%R%""
  830. %V%%R%""
  831. %V%%R%""
  832. %V%%R%""
  833. %V%%R%""
  834. %V%%R%""
  835. %V%%R%""
  836. %V%%R%""
  837. %V%%R%""
  838. %V%%R%""
  839. %V%%R%""
  840. %V%%R%""
  841. %V%%R%""
  842. %V%%R%""
  843. c12
  844. %CO:Q,5,0%c13
  845. %V%%R%""
  846. %V%%R%" "
  847. %V%%R%""
  848. %V%%R%""
  849. %V%%R%""
  850. %V%%R%""
  851. %V%%R%" "
  852. %V%%R%""
  853. %V%%R%""
  854. %V%%R%""
  855. %V%%R%""
  856. %V%%R%" "
  857. %V%%R%""
  858. %V%%R%""
  859. %V%%R%""
  860. %V%%R%""
  861. %V%%R%""
  862. %V%%R%""
  863. %V%%R%""
  864. %V%%R%""
  865. %V%%R%""
  866. %V%%R%""
  867. %V%%R%""
  868. %V%%R%""
  869. %V%%R%""
  870. %V%%R%""
  871. %V%%R%""
  872. %V%%R%""
  873. %V%%R%""
  874. %V%%R%""
  875. %V%%R%""
  876. %V%%R%""
  877. %V%%R%""
  878. %V%%R%""
  879. %V%%R%""
  880. %V%%R%""
  881. %V%%R%""
  882. %V%%R%""
  883. %V%%R%""
  884. %V%%R%""
  885. %V%%R%""
  886. %V%%R%""
  887. %V%%R%""
  888. %V%%R%""
  889. %V%%R%""
  890. %V%%R%""
  891. %V%%R%""
  892. %V%%R%""
  893. %V%%R%""
  894. %V%%R%""
  895. c13
  896. %CO:R,5,0%c14
  897. %V%%R%""
  898. %V%%R%5489
  899. %V%%R%7035
  900. %V%%R%""
  901. %V%%R%""
  902. %V%%R%""
  903. %V%%R%5839
  904. %V%%R%7335
  905. %V%%R%""
  906. %V%%R%""
  907. %V%%R%""
  908. %V%%R%5914
  909. %V%%R%7959
  910. %V%%R%""
  911. %V%%R%""
  912. %V%%R%""
  913. %V%%R%""
  914. %V%%R%""
  915. %V%%R%""
  916. %V%%R%""
  917. %V%%R%""
  918. %V%%R%""
  919. %V%%R%""
  920. %V%%R%""
  921. %V%%R%""
  922. %V%%R%""
  923. %V%%R%""
  924. %V%%R%""
  925. %V%%R%""
  926. %V%%R%""
  927. %V%%R%""
  928. %V%%R%""
  929. %V%%R%""
  930. %V%%R%""
  931. %V%%R%""
  932. %V%%R%""
  933. %V%%R%""
  934. %V%%R%""
  935. %V%%R%""
  936. %V%%R%""
  937. %V%%R%""
  938. %V%%R%""
  939. %V%%R%""
  940. %V%%R%""
  941. %V%%R%""
  942. %V%%R%""
  943. %V%%R%""
  944. %V%%R%""
  945. %V%%R%""
  946. %V%%R%""
  947. c14
  948. %CO:S,5,0%c15
  949. %V%%R%""
  950. %V%%R%""
  951. %V%%R%""
  952. %V%%R%""
  953. %V%%R%""
  954. %V%%R%""
  955. %V%%R%""
  956. %V%%R%""
  957. %V%%R%""
  958. %V%%R%""
  959. %V%%R%""
  960. %V%%R%""
  961. %V%%R%""
  962. %V%%R%""
  963. %V%%R%""
  964. %V%%R%""
  965. %V%%R%""
  966. %V%%R%""
  967. %V%%R%""
  968. %V%%R%""
  969. %V%%R%""
  970. %V%%R%""
  971. %V%%R%""
  972. %V%%R%""
  973. %V%%R%""
  974. %V%%R%""
  975. %V%%R%""
  976. %V%%R%""
  977. %V%%R%""
  978. %V%%R%""
  979. %V%%R%""
  980. %V%%R%""
  981. %V%%R%""
  982. %V%%R%""
  983. %V%%R%""
  984. %V%%R%""
  985. %V%%R%""
  986. %V%%R%""
  987. %V%%R%""
  988. %V%%R%""
  989. %V%%R%""
  990. %V%%R%""
  991. %V%%R%""
  992. %V%%R%""
  993. %V%%R%""
  994. %V%%R%""
  995. %V%%R%""
  996. %V%%R%""
  997. %V%%R%""
  998. %V%%R%""
  999. c15
  1000. %CO:T,5,0%c16
  1001. %V%%R%""
  1002. %V%%R%""
  1003. %V%%R%""
  1004. %V%%R%""
  1005. %V%%R%""
  1006. %V%%R%""
  1007. %V%%R%""
  1008. %V%%R%""
  1009. %V%%R%""
  1010. %V%%R%""
  1011. %V%%R%""
  1012. %V%%R%""
  1013. %V%%R%""
  1014. %V%%R%""
  1015. %V%%R%""
  1016. %V%%R%""
  1017. %V%%R%""
  1018. %V%%R%""
  1019. %V%%R%""
  1020. %V%%R%""
  1021. %V%%R%""
  1022. %V%%R%""
  1023. %V%%R%""
  1024. %V%%R%""
  1025. %V%%R%""
  1026. %V%%R%""
  1027. %V%%R%""
  1028. %V%%R%""
  1029. %V%%R%""
  1030. %V%%R%""
  1031. %V%%R%""
  1032. %V%%R%""
  1033. %V%%R%""
  1034. %V%%R%""
  1035. %V%%R%""
  1036. %V%%R%""
  1037. %V%%R%""
  1038. %V%%R%""
  1039. %V%%R%""
  1040. %V%%R%""
  1041. %V%%R%""
  1042. %V%%R%""
  1043. %V%%R%""
  1044. %V%%R%""
  1045. %V%%R%""
  1046. %V%%R%""
  1047. %V%%R%""
  1048. %V%%R%""
  1049. %V%%R%""
  1050. %V%%R%""
  1051. c16
  1052. %CO:U,6,0%
  1053. %R%r1
  1054. %R%r2
  1055. %R%r3
  1056. %R%r4
  1057. %R%r5
  1058. %R%r1
  1059. %R%r2
  1060. %R%r3
  1061. %R%r4
  1062. %R%r5
  1063. %R%r1
  1064. %R%r2
  1065. %R%r3
  1066. %R%r4
  1067. %R%r5
  1068. %R%r1
  1069. %R%r2
  1070. %R%r3
  1071. %R%r4
  1072. %R%r5
  1073. %R%r1
  1074. %R%r2
  1075. %R%r3
  1076. %R%r4
  1077. %R%r5
  1078. %R%r1
  1079. %R%r2
  1080. %R%r3
  1081. %R%r4
  1082. %R%r5
  1083. %R%r1
  1084. %R%r2
  1085. %R%r3
  1086. %R%r4
  1087. %R%r5
  1088. %R%r1
  1089. %R%r2
  1090. %R%r3
  1091. %R%r4
  1092. %R%r5
  1093. %R%r1
  1094. %R%r2
  1095. %R%r3
  1096. %R%r4
  1097. %R%r5
  1098. %R%r1
  1099. %R%r2
  1100. %R%r3
  1101. %R%r4
  1102. %R%r5
  1103.